COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.macro ref(name,body)⊂
C00005 ENDMK
C⊗;
.macro ref(name,body)⊂
.send bible ⊂}<body≤name≥{⊃
.⊃

.MACRO BIB ⊂
.IF SSNAME ≠ SECNAME THEN FOO←TRUE ELSE FOO←FALSE;
.	SSNAME ← SECNAME ← "BIBLIOGRPAHY";
.	SSNUMBER ← (SECTION+1)&"."
.	SKIP TO COLUMN 1; NEXT SECTION!;
.		BEGIN
.		CENTER
.NAM←↑"BIBLIOGRAPHY";
{NAM}%*
.		SKIP 3;
.IF FOO THEN	SEND CONTENTS ⊂ SKIP 2;
∂4{NAM}→{PAGE!}{SKIP;⊃
.ELSE		SEND CONTENTS ⊂ SKIP ;
∂4{NAM}→{PAGE!}{SKIP;⊃
.		END	⊃
.MACRO pro ⊂
.IF SSNAME ≠ SECNAME THEN FOO←TRUE ELSE FOO←FALSE;
.	SSNAME ← SECNAME ← "PROLOGUE";
.	SSNUMBER ← (SECTION+1)&"."
.	SKIP TO COLUMN 1; NEXT SECTION!;
.		BEGIN
.		CENTER
.NAM←↑"PROLOGUE";
{NAM}%*
.		SKIP 3;
.IF FOO THEN	SEND CONTENTS ⊂ SKIP 2;
∂4{NAM}→{PAGE!}{SKIP;⊃
.ELSE		SEND CONTENTS ⊂ SKIP ;
∂4{NAM}→{PAGE!}{SKIP;⊃
.		END	⊃

.AT "⊗↑" name "↑"⊂
.START	SEND bible ⊂}<{PAGE}≤name≥{⊃; "name"; END ⊃

.MACRO biblio ⊂
.begin "bib"
.	PORTION bible
.bib
.	SELECT 1;
The basic form of an entry consists of three items:
.BEGIN INDENT 5,5;
%21.%1 A  short name which is how the document is referenced in the text.

%22.%1 The full bibliographical reference.

%23.%1 A sequence of pages in the text which refer to this document. If the document is not
referenced the statement %2[#norefs#]%1 appears instead.
.END

.INDENT 0,12;
.TABS 12;TURN ON "\";
.	SECNAME ← "BIBLIOGRAPHY";
.at "$"wds "$" ⊂}%3{}wds%*{⊃

.	ww ← wp ← NULL ;
.use ← NULL;brak ← NULL;
.	AT "<" x "≤" y "≥" ⊂
.		IF "y" ≠ ww THEN START use;use← "%2#norefs%1";brak; brak←"%2#]%*";BREAK }y\x#%2[%*{ END
.		ELSE IF "x" ≠ wp THEN start  use ←NULL;}%2#x%*{ end ;
.		wp ← "x" ; ww ← "y" ; ⊃
.	RECEIVE "≤≥"
.	END "bib"
.⊃